home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / sud.red < prev    next >
Text File  |  1989-07-30  |  2KB  |  48 lines
  1. ;SUD
  2. ;by Giovanni Ciraulo 
  3. ;Italy
  4. ;
  5.               DAT                    0
  6.               DAT                    0
  7.               DAT                    0
  8.               DAT                    0
  9.               DAT                    0
  10.               DAT                    0
  11.               DAT                    0
  12.               DAT                    0
  13.               DAT                    0
  14.               DAT                    0
  15.               DAT                    0
  16.               DAT                    0
  17.               DAT                    0
  18.               DAT                    0
  19.               DAT                    0
  20.               DAT                    0 
  21. P             DAT                    2064
  22. Q             DAT                   -2070
  23. START         ADD   #  16            P
  24.               SUB   #  11            Q
  25.               CMP   @  P          @  Q
  26.               JMP      B
  27. CONTR         JMN      START         P
  28. A             ADD   #  1             BOMB
  29.               MOV      BOMB       @  BOMB
  30.               MOV      TNT,       <  TNT
  31.               JMP      A
  32. BOMB          DAT                    TZP
  33. TNT           DAT                    A
  34. B             SUB   #  4             P
  35.               ADD   #  4             Q
  36. BA            MOV      DDT        @  P
  37.               MOV      DDT        @  Q
  38. TZP           ADD   #  2             P
  39.               SUB   #  2             Q
  40.  
  41.               DJN      BA            T
  42.               ADD   #  10            T
  43.               JMP      CONTR
  44. DDT           SPL                    DDT
  45. T             DAT                    10
  46.               END      START
  47.  
  48.